home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / SHARE / lector / cursor / MCURSOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-17  |  774 b   |  37 lines
  1.  
  2. { Unidad para cambiar el puntero del ratón }
  3.  
  4. unit mcursor;
  5.  
  6. interface
  7.  
  8. const
  9. flecha : array [0..31] of word = {ejemplo de cursor del raton}
  10.        ($9FFF, $8Fff, $87ff, $83FF, $81FF, $80FF, $807F, $803F,
  11.         $801F, $800F, $80Ff, $887F, $987F, $FC3F, $FC3f, $fC3F,
  12.         $0000, $2000, $3000, $3800, $3c00, $3E00, $3F00, $3F80,
  13.         $3Fc0, $3E00, $3600, $2300, $0300, $0180, $0180, $0000);
  14.  
  15. Procedure SetMouseCursor (var p);
  16.  
  17.  
  18. implementation
  19.  
  20. procedure SetMouseCursor (var p);
  21. var segmento, desplazamiento: word;
  22. begin
  23.      segmento :=seg(p);
  24.      desplazamiento :=ofs(p);
  25.      asm
  26.         mov es,segmento
  27.         mov dx,desplazamiento
  28.         mov ax,0009h
  29.         mov bx,0
  30.         mov cx,0
  31.         int 33h
  32.      end;
  33. end;
  34.  
  35.  
  36. end.
  37.